home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).do / HELLO.bas < prev    next >
BASIC Source File  |  1996-12-24  |  5KB  |  111 lines
  1. 10  REM  SOFTDISK.HELLO.FEB.82
  2. 15 D$ =  CHR$(4)
  3. 20  TEXT : HOME : HTAB 12: PRINT "SOFTDISK HARVEST"
  4. 30  PRINT : HTAB 8: PRINT "1 = GAMES"
  5. 40  PRINT : HTAB 8: PRINT "2 = NOVELTIES"
  6. 50  PRINT : HTAB 8: PRINT "3 = GRAPHICS"
  7. 60  PRINT : HTAB 8: PRINT "4 = EDUCATIONAL"
  8. 70  PRINT : HTAB 8: PRINT "5 = UTILITIES"
  9. 80  PRINT : HTAB 8: PRINT "6 = HOME & BUSINESS"
  10. 90  PRINT : HTAB 8: PRINT "7 = MUSIC"
  11. 95  PRINT : HTAB 8: PRINT "8 = CATALOG"
  12. 100  PRINT : PRINT "WHICH? ";: GET R$: PRINT D$
  13. 110  IF R$ = "1" GOTO 1000
  14. 120  IF R$ = "2" GOTO 2000
  15. 130  IF R$ = "3" GOTO 3000
  16. 140  IF R$ = "4" GOTO 4000
  17. 150  IF R$ = "5" GOTO 5000
  18. 160  IF R$ = "6" GOTO 6000
  19. 170  IF R$ = "7" GOTO 7000
  20. 175  IF R$ = "8"  THEN  PRINT D$"CATALOG": END 
  21. 180  GOTO 10
  22. 1000  HOME : HTAB 12: PRINT "SOFTDISK GAMES"
  23. 1010  PRINT : HTAB 8: PRINT "1 = DEFENDER"
  24. 1020  PRINT : HTAB 8: PRINT "2 = PIG.LATIN"
  25. 1030  PRINT : HTAB 8: PRINT "3 = JUMBLER"
  26. 1040  PRINT : HTAB 8: PRINT "4 = NICOMACHUS"
  27. 1050  PRINT : HTAB 8: PRINT "5 = FORTUNE.TELLER"
  28. 1060  PRINT : HTAB 8: PRINT "6 = S.A.M."
  29. 1070  PRINT : HTAB 8: PRINT "7 = BIORHYTHM"
  30. 1080  PRINT : HTAB 8: PRINT "8 = HELLO"
  31. 1090  PRINT : PRINT "WHICH? ";: GET R$: PRINT D$
  32. 1100  IF R$ = "1"  THEN  PRINT D$"RUN DEFENDER.INSTRUCTIONS"
  33. 1110  IF R$ = "2"  THEN  PRINT D$"RUN PIG.LATIN"
  34. 1120  IF R$ = "3"  THEN  PRINT D$"RUN JUMBLER"
  35. 1130  IF R$ = "4"  THEN  PRINT D$"RUN NICOMACHUS"
  36. 1140  IF R$ = "5"  THEN  PRINT D$"RUN FORTUNE.TELLER"
  37. 1150  IF R$ = "6"  THEN  PRINT D$"RUN S.A.M."
  38. 1160  IF R$ = "7"  THEN  PRINT D$"RUN BIORHYTHM"
  39. 1170  IF R$ = "8"  THEN  GOTO 10
  40. 1180  GOTO 1000
  41. 2000  HOME : HTAB 12: PRINT "SOFTDISK NOVELTIES"
  42. 2010  PRINT : HTAB 8: PRINT "1 = DANCIN'.WORDS"
  43. 2020  PRINT : HTAB 8: PRINT "2 = HELLO"
  44. 2030  PRINT : PRINT "WHICH? ";: GET R$: PRINT D$
  45. 2040  IF R$ = "1"  THEN  PRINT D$"RUN DANCIN'.WORDS"
  46. 2050  IF R$ = "2" GOTO 10
  47. 2060  GOTO 2000
  48. 3000  HOME : HTAB 12: PRINT "SOFTDISK GRAPHICS"
  49. 3010  PRINT : HTAB 8: PRINT "1 = HEWITT.GRAPHICS"
  50. 3020  PRINT : HTAB 8: PRINT "2 = SPITZ"
  51. 3030  PRINT : HTAB 8: PRINT "3 = IMPOSSIBLE"
  52. 3040  PRINT : HTAB 8: PRINT "4 = EMILS'.PDL.TABLET"
  53. 3050  PRINT : HTAB 8: PRINT "5 = KALEIDOSCOPE"
  54. 3060  PRINT : HTAB 8: PRINT "6 = HELLO"
  55. 3070  PRINT : PRINT "WHICH? ";: GET R$: PRINT D$
  56. 3080  IF R$ = "1"  THEN  PRINT D$"RUN HEWITT.GRAPHICS"
  57. 3090  IF R$ = "2"  THEN  PRINT D$"RUN SPITZ"
  58. 3100  IF R$ = "3"  THEN  PRINT D$"RUN IMPOSSIBLE"
  59. 3110  IF R$ = "4"  THEN  PRINT D$"RUN EMILS'.PDL.TABLET"
  60. 3120  IF R$ = "5"  THEN  PRINT D$"RUN KALEIDOSCOPE"
  61. 3130  IF R$ = "6" GOTO 10
  62. 3140  GOTO 3000
  63. 4000  HOME : HTAB 12: PRINT "SOFTDISK EDUCATIONAL"
  64. 4010  PRINT : HTAB 8: PRINT "1 = CONVERTER"
  65. 4020  PRINT : HTAB 8: PRINT "2 = SAT.TEST"
  66. 4030  PRINT : HTAB 8: PRINT "3 = APPLEBACUS"
  67. 4040  PRINT : HTAB 8: PRINT "4 = MATH"
  68. 4050  PRINT : HTAB 8: PRINT "5 = WORD.PROBLEMS"
  69. 4060  PRINT : HTAB 8: PRINT "6 = HELLO"
  70. 4070  PRINT : PRINT "WHICH? ";: GET R$: PRINT D$
  71. 4080  IF R$ = "1"  THEN  PRINT D$"RUN CONVERTER"
  72. 4090  IF R$ = "2"  THEN  PRINT D$"RUN SAT.TEST"
  73. 4100  IF R$ = "3"  THEN  PRINT D$"RUN APPLEBACUS"
  74. 4110  IF R$ = "4"  THEN  PRINT D$"RUN MATH"
  75. 4120  IF R$ = "5"  THEN  PRINT D$"RUN WORD.PROBLEMS"
  76. 4130  IF R$ = "6" GOTO 10
  77. 4140  GOTO 4000
  78. 5000  HOME : HTAB 12: PRINT "SOFTDISK UTILITIES"
  79. 5010  PRINT : HTAB 8: PRINT "1 = CALENDAR"
  80. 5020  PRINT : HTAB 8: PRINT "2 = MEMOCAP"
  81. 5030  PRINT : HTAB 8: PRINT "3 = ALIGN"
  82. 5040  PRINT : HTAB 8: PRINT "4 = FREE.SPACE"
  83. 5050  PRINT : HTAB 8: PRINT "5 = HELLO"
  84. 5060  PRINT : PRINT "WHICH? ";: GET R$: PRINT D$
  85. 5070  IF R$ = "1"  THEN  PRINT D$"RUN CALENDAR"
  86. 5080  IF R$ = "2"  THEN  PRINT D$"RUN MEMOCAP"
  87. 5090  IF R$ = "3"  THEN  PRINT D$"RUN ALIGN"
  88. 5100  IF R$ = "4"  THEN  PRINT D$"BRUN FREE.SPACE"
  89. 5110  IF R$ = "5" GOTO 10
  90. 5120  GOTO 5000
  91. 6000  HOME : HTAB 12: PRINT "SOFTDISK HOME & BUSINESS"
  92. 6010  PRINT : HTAB 8: PRINT "1 = RECIPE.FILE"
  93. 6020  PRINT : HTAB 8: PRINT "2 = HELLO"
  94. 6030  PRINT : PRINT "WHICH? ";: GET R$: PRINT D$
  95. 6040  IF R$ = "1" GOTO 6500
  96. 6050  IF R$ = "2" GOTO 10
  97. 6060  GOTO 6000
  98. 6500  HOME : VTAB 12
  99. 6510  PRINT "RECIPE.FILE SHOULD BE PUT ON A DISK"
  100. 6520  PRINT : PRINT "BY ITSELF BECAUSE IT CREATES A NUMBER"
  101. 6530  PRINT : PRINT "OF TEXT FILES.
  102. 6540  PRINT : PRINT : PRINT "THE TEXT FILES WILL GROW AS YOU USE"
  103. 6550  PRINT : PRINT "THEM FOR KEEPING RECIPES."
  104. 6560  PRINT : INVERSE : PRINT "HIT RETURN";: NORMAL : INPUT " ";R$: GOTO 10
  105. 7000  HOME : HTAB 12: PRINT "SOFTDISK MUSIC"
  106. 7010  PRINT : HTAB 8: PRINT "1 = MUSICIAN"
  107. 7020  PRINT : HTAB 8: PRINT "2 = HELLO"
  108. 7030  PRINT : PRINT "WHICH? ";: GET R$: PRINT D$
  109. 7040  IF R$ = "1"  THEN  PRINT D$"RUN MUSICIAN"
  110. 7050  IF R$ = "2" GOTO 10
  111. 7060  GOTO 7000